perm filename TABLE[2,BGB] blob
sn#033834 filedate 1973-04-09 generic text, type T, neo UTF8
00100 TITLE TAB - TABLE TEST
00200
00350 SA: MOVEI =1000↔MOVEM CNT#
00400
00450 INCHRW
00475 CAIN"*"↔SPCWAR CCW
00500 CAIN"-"↔SPCWAR CW
00600 CAIN" "↔SPCWAR STOP
00700 JRST SA
00800
00900 CCW: SOSGE CNT↔CALLI 400024
01000 CONSO 40↔DATAO 500,[060(5)]↔CALLI 400024
01100 CW: SOSGE CNT↔CALLI 400024
01200 CONSO 40↔DATAO 500,[140(5)]↔CALLI 400024
01300 STOP: CONSO 40↔DATAO 500,[177(5)]↔CALLI 400024
01400
01500 END SA